Script: put wsGet(wdName,objNo,"Selection") into x┬get "i17_Selection:" & x & return & "i18_Text:" & objValue & return & "i21_Selection:3"┬wsSet wdName,0,"properties",it┬
ItemType: PUSH
Rect: 180,268,242,288
AutoSize: FALSE
WhiteColor: -8739,-8739,-8739
Name: Save
DefaultItem: TRUE
AutoClose: TRUE
ItemType: PUSH
Rect: 16,268,86,288
AutoSize: FALSE
WhiteColor: -8739,-8739,-8739
Name: Cancel
CancelItem: TRUE
AutoClose: TRUE
ItemType: LINE
Rect: -4,79,261,80
BlackColor: 8738,0,0
WhiteColor: -17477,-17477,-17477
Name: Line
Pen: Gray
ItemType: BOX
Rect: 16,124,241,259
BlackColor: 8738,0,0
ItemType: TEXT
Rect: 22,117,120,134
AutoSize: FALSE
Name: Style LBL
BlackColor: 0,0,-30584
WhiteColor: -17477,-17477,-17477
TextStyle: Italic
Text: Window Style
ItemType: PICT
Rect: 32,220,228,241
WhiteColor: -4370,-4370,-4370
Name: Window Style
Grid: 8,1
Logic: Radio
Script: put "Dialog,Rectangle,Shadow,RoundRect,Plain,Document,Zoom,Windoid" into wStyles┬wsSet wdName,18,Text,item objValue of wStyles┬get wsGet(wdName,21,Value)┬if it │ 1 then wsSet wdName,(it*2)+5,"Selection",objValue
ItemType: TEXT
Rect: 32,243,227,255
TextFont: Geneva
TextSize: 9
AutoSize: FALSE
Name: Style Name
WhiteColor: -17477,-17477,-17477
TextAlign: Center
ItemType: POP
Rect: 162,8,192,38
BlackColor: 8738,0,0
WhiteColor: 0,0,0
Text: ,256
Style: Clut
Script: global bgColor┬wsSet wdName,objNo,Text,","&objValue┬wsSet wdName,objNo,WhiteColor,objValue
ItemType: LBL
Rect: 141,40,223,52
TextFont: Geneva
TextSize: 9
BlackColor: 8738,0,0
Text: Background Color
ItemType: PICT
Rect: 25,138,107,210
AutoSize: FALSE
BlackColor: -17477,-17477,-17477
WhiteColor: 0,0,-30584
Grid: 1,3
Logic: Radio
SelectionStyle: Frame
Script: wsSet wdName,objNo,SelectionStyle,Frame┬if objValue │ 1 then┬ put wsGet(wdName,(objValue*2)+5,Value) into wText┬ put wsGet(wdName,(objValue*2)+5,"Selection") into x┬end if┬get "i17_Selection:" & x & return & "i18_Text:" & wText┬wsSet wdName,0,"properties",it┬